# 1. Cargar la librería stringr (y dplyr para el ejemplo)
library(stringr)
library(dplyr)
# 2. Crear nuestros datos de ejemplo
productos <- tibble(
codigo = c("PROD-1021", "PROD_1022", "PROD-1023", "PROD_1024", "PROD-1025")
)
# 3. Proceso consolidado de detección y reemplazo
reporte_codigos <- productos %>%
mutate(
# PASO DE DETECCIÓN: Creamos una columna que nos dice si el formato es antiguo.
# str_detect() devuelve TRUE si encuentra un guion bajo "_".
formato_antiguo = str_detect(codigo, "_"),
# PASO DE REEMPLAZO: Creamos una columna con el código corregido.
# str_replace_all() busca todos los "_" y los reemplaza por "-".
codigo_corregido = str_replace_all(codigo, "_", "-")
)
# 4. Mostrar el resultado
print(reporte_codigos)# A tibble: 5 × 3
codigo formato_antiguo codigo_corregido
<chr> <lgl> <chr>
1 PROD-1021 FALSE PROD-1021
2 PROD_1022 TRUE PROD-1022
3 PROD-1023 FALSE PROD-1023
4 PROD_1024 TRUE PROD-1024
5 PROD-1025 FALSE PROD-1025
# 1. Cargar la librería necesaria
library(ggplot2)
library(scales)
# Datos de ejemplo: Ventas mensuales
df <- data.frame(
mes = 1:6,
ventas = c(505980, 1250345, 899500, 2150000, 1785100, 450000)
)
# Datos de ejemplo: Crecimiento
df$crecimiento <- c(0.05, 0.12, -0.02, 0.08, 0.15, 0.03)
ggplot(df, aes(x = mes, y = crecimiento)) +
geom_line() +
scale_y_continuous(labels = label_percent()) +
labs(title = "Formato Porcentaje", y = "Crecimiento Mensual")
# 1. Cargar la librería
library(stringi)
# 2. Crear un vector de texto con diversos caracteres especiales
frases_originales <- c(
"El pingüino se bañó en el río.",
"José pidió perdón.",
"Açaí é uma fruta do Brasil.")
# 3. Aplicar la transformación para convertir a ASCII
frases_transformadas <- stri_trans_general(frases_originales, "Latin-ASCII")
# 4. Imprimir para comparar el antes y el después
print("--- ANTES ---")
print(frases_originales)
print("--- DESPUÉS ---")
print(frases_transformadas)
#==========================================================
# 1. Crear un vector con precios en diferentes monedas
precios <- c(
"Laptop: $999.00",
"Café: €3.50",
"Libro: ¥1200",
"Pasaje de bus: Q5.00"
)
simbolos_encontrados <- stri_extract_all_regex(precios, "\\p{Sc}")
print(simbolos_encontrados)[1] "--- ANTES ---"
[1] "El pingüino se bañó en el río." "José pidió perdón."
[3] "Açaí é uma fruta do Brasil."
[1] "--- DESPUÉS ---"
[1] "El pinguino se bano en el rio." "Jose pidio perdon."
[3] "Acai e uma fruta do Brasil."
[[1]]
[1] "$"
[[2]]
[1] "€"
[[3]]
[1] "¥"
[[4]]
[1] NA